home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / WT.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-02-28  |  4.9 KB  |  111 lines
  1. 5  CLS:KEY OFF:COLOR 3,0,8:LOCATE 5,5:PRINT "AHEM........!":FOR X= 1 TO 5000:NEXT:CLS:LOCATE 5,5:PRINT "The William Tell overture....In it's entirety.":FOR X= 1 TO 5000:NEXT:CLS
  2. 20  PLAY"MBL16T155"
  3. 30  FOR I=1 TO 100
  4. 40   READ M$
  5. 50   PRINT M$
  6. 60   PLAY M$
  7. 70  NEXT I
  8. 75  IF PLAY(0)=0 THEN 85 ELSE 75
  9. 80  CLS:LOCATE 12,30:PRINT "THANK YOU":LOCATE 23,1:INPUT "PLAY AGAIN  (Y/N)";Q$:IF Q$="Y" THEN RUN ELSE RUN "MENU.BAS"
  10. 85  FOR I=1 TO 5000:NEXT I:GOTO 80
  11. 100  DATA "o2mnb4p8msbbmnb4p8msbbb8g#8
  12. 110  DATA "e8g#8b8g#8b8o3e8o2b8g#8e8g#8
  13. 120  DATA "b8g#8b8o3e8o2mnb4p8msbbmnb4
  14. 130  DATA "p8msbbmnb4p8msbbmnb4p8msbb
  15. 140  DATA "b8bbb8b8b8bbb8b8b8bb
  16. 150  DATA "b8b8b8bbb8b8mlb2
  17. 160  DATA "b2b8p8p4p4
  18. 170  DATA "p8mso1bbb8bbb8bbo2e8f#8g#8o1bb
  19. 180  DATA "b8bbo2e8g#g#f#8d#8o1b8bbb8bb
  20. 190  DATA "b8bbo2e8f#8g#8eg#mlb4bmsag#f#
  21. 200  DATA "e8g#8e8o3bbb8bbb8bbo4e8f#8
  22. 210  DATA "g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb
  23. 220  DATA "b8bbb8bbo4e8f#8g#8mleg#b4
  24. 230  DATA "bag#f#mse8g#8e8o3g#g#g#8g#g#g#8g#g#
  25. 240  DATA "g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8d#8
  26. 250  DATA "c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8
  27. 260  DATA "o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8g#g#
  28. 270  DATA "g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8
  29. 280  DATA "e8d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8
  30. 290  DATA "o3g#8o4c#8o3g#8o4c#8o3b8a#8b8o2bbb8f#f#
  31. 300  DATA "f#8f#f#f#8g#8a8f#4mna8msg#8mne4
  32. 310  DATA "msg#8f#8f#8f#8o3f#f#f#8f#f#f#8g#8
  33. 320  DATA "a8mnf#4msa8g#8mne4msg#8f#8o2bb
  34. 330  DATA "b8o1bbb8bbb8bbo2mne8f#8g#8o1bb
  35. 340  DATA "b8bbo2e8g#g#f#8d#8o1b8bbb8bb
  36. 350  DATA "b8bbo2e8f#8g#8eg#mlb4mnbag#f#
  37. 360  DATA "e8g#8e8o3bbb8bbb8bbo4e8f#8
  38. 370  DATA "g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb
  39. 380  DATA "b8bbb8bbo4e8f#8g#8mleg#mlb4
  40. 390  DATA "mnbag#f#mne8g#8e8o3mle56f56g56a56b56o4c56d56mne8eee8e8g#4.
  41. 400  DATA "f#8e8d#8e8c#8mso3bo4c#o3bo4c#o3b
  42. 410  DATA "o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#
  43. 420  DATA "g#f#g#f#g#f#g#f#g#f#d#o2bo3mlbo4c#d#e8d#8e8
  44. 430  DATA "c#8o3msbo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#
  45. 440  DATA "ag#ag#abo4c#o3f#g#f#g#f#af#emne8p8mlc#4
  46. 450  DATA "mnc#o2cmso3c#o2co3d#c#o2baag#ec#c#c#c#c#e
  47. 460  DATA "d#o1cg#g#g#g#g#g#o2c#eg#o3c#c#c#c#c#o2co3c#o2co3d#
  48. 470  DATA "c#o2baag#ec#c#c#c#c#ed#o1cg#g#g#g#g#mng#
  49. 480  DATA "o2c#eg#o3msc#ed#c#d#o2cg#g#g#o3g#ec#d#o2cg#g#g#
  50. 490  DATA "o3g#ec#d#o2bg#g#a#gd#d#g#gg#gg#ag#f#e
  51. 500  DATA "o1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#bo3g#f#ed#
  52. 510  DATA "f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#d#ef#o2g#
  53. 520  DATA "ag#aco3c#d#eo2f#g#f#g#f#g#f#g#f#g#f#d#o1b
  54. 530  DATA "co2c#d#eo1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#b
  55. 540  DATA "o3g#f#ed#f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#
  56. 550  DATA "d#ef#o2g#ag#abo3c#d#eo2f#o3c#o2co3c#d#c#o2af#mne
  57. 560  DATA "o3mlef#g#abo4c#d#mne8mseee8e8g#4.
  58. 570  DATA "msf8mse8d#8e8c#8o3bo4c#o3bo4c#o3bo4c#d#eo3a
  59. 580  DATA "bababo4c#d#o3g#ag#ag#abo4c#o3f#g#f#g#f#
  60. 590  DATA "g#f#g#f#g#f#d#o2bo3mlbo4c#d#mne8eee8e8g#4.
  61. 600  DATA "msf#8e8d#8e8c#8o3bo4c#o3bo4c#o3b
  62. 610  DATA "o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#
  63. 620  DATA "g#f#g#f#ag#f#e8o2b8o3e8g#g#g#8mng#g#g#8
  64. 630  DATA "g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8
  65. 640  DATA "d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8
  66. 650  DATA "o4c#8o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8
  67. 660  DATA "g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8
  68. 670  DATA "f#8e8d#8c#8g#g#g#8g#g#g#8g#g#g#8
  69. 680  DATA "o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8a#8b8
  70. 690  DATA "o2f#f#f#8f#f#f#8g#8a8f#4a8g#8
  71. 700  DATA "e4g#8f#8o0b8o1b8o2f#f#f#8f#f#f#8
  72. 710  DATA "g#8a8f#4a8g#8e4g#8f#8
  73. 720  DATA "bbb8o1bbb8bbb8bbo2e8f#8g#8
  74. 730  DATA "o1bbb8bbo2e8g#g#f#8d#8o1b8bbb8
  75. 740  DATA "bbb8bbo2e8f#8g#8eg#mlb4mnb
  76. 750  DATA "ag#f#e8o1b8o2e8o3bbb8bbb8bbo4e8
  77. 760  DATA "f#8g#8o3bbb8bbo4e8g#g#f#8d#8o3b8
  78. 770  DATA "bbb8bbb8bbo4e8f#8g#8o3eg#mlb4
  79. 780  DATA "mnbag#f#mlef#g#mnamlg#abo4mnc#mlo3bo4c#d#mnemld#
  80. 790  DATA "ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmle
  81. 800  DATA "f#g#mnamlg#abmno4c#mlo3bo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a
  82. 810  DATA "o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16
  83. 820  DATA "mleo4eo3mnep16mlao4ao3mnap16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16
  84. 830  DATA "mlao4ao3mnao4go3go4go3go4go3go4go3go4msg8e8c8e8o4mng#
  85. 840  DATA "o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8e8o3b8o4e8mng#o3g#o4g#o3g#o4g#
  86. 850  DATA "o3g#o4g#o3g#o4msg#8f8c#8f8mna#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4msa#8
  87. 860  DATA "g8e8g8b8p16mna#p16ap16g#p16f#p16ep16
  88. 870  DATA "d#p16c#p16o3bp16a#p16ap16g#p16f#p16ep16d#p16f#mle
  89. 880  DATA "f#g#mnamlg#abmno4c#o3mlbo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a
  90. 890  DATA "o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmlef#g#mnamlg#abmno4c#o3mlb
  91. 900  DATA "o4c#d#mnemld#ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4a
  92. 910  DATA "o3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnap16
  93. 920  DATA "mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnao4go3go4go3go4g
  94. 930  DATA "o3go4go3go4g8e8c8e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4g#8
  95. 940  DATA "e8o3b8o4e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8mnf8c#8
  96. 950  DATA "f8a#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4a#8g8e8g8b8
  97. 960  DATA "p16a#p16ap16g#p16f#p16ep16d#p16c#p16o3bp16a#p16
  98. 970  DATA "ap16g#p16f#p16ep16d#p16fmled#ed#mne8bbb8
  99. 980  DATA "bbb8bbo4e8f#8g#8o3bbb8bbb8
  100. 990  DATA "bbo4g#8a8b8p8e8f#8g#8p8o3g#8
  101. 1000  DATA "a8b8p8p2o2bco3c#dd#
  102. 1010  DATA "eff#gg#aa#bco4c#d#ed#f#d#ed#f#d#e
  103. 1020  DATA "d#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#e
  104. 1030  DATA "d#f#d#e8eo3eo4eo3eo4eo3eo4e8o3bo2bo3bo2bo3bo2bo3b8
  105. 1040  DATA "g#o2g#o3g#o2g#o3g#o2g#o3g8eo2eo3eo2eo3eo2eo3e8eee8
  106. 1050  DATA "e8e8o2bbb8b8b8g#g#g#8g#8g#8
  107. 1060  DATA "eee8e8e8o1b8o2e8o1b8o2g#8e8b8
  108. 1070  DATA "g#8o3e8o2b8o3e8o2b8o3g#8e8b8g#8o4e4
  109. 1080  DATA "p8eee8e8e8e8e4p8.
  110. 1090  DATA "ee4p8.o2ee2
  111.